home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / EDUCMISC / IQBUILD.LZH / IQBUILD.BAS < prev    next >
BASIC Source File  |  1987-01-12  |  5KB  |  100 lines
  1. 10 REM ======================================================================
  2. 20 REM ============================= IQ Builder =============================
  3. 30 REM This program presents a menu of the programs available in the      ===
  4. 40 REM IQ Builder series and allows the user to select a program by       ===
  5. 50 REM moving the cursor to the desired program and pressing ENTER.       ===
  6. 60 REM ======================================================================
  7. 70 REM $s2
  8. 80 REM  =====================================================================
  9. 90 REM  Turn off KEY display, set display width, clear the screen and set ===
  10. 100 REM KEY(10) to reload the menu program when pressed in command mode.  ===
  11. 110 REM =====================================================================
  12. 120 REM $s2
  13. 130 KEY OFF:WIDTH 80:CLS:KEY 10,"run "+CHR$(34)+"b:???0??"+CHR$(13)
  14. 140 REM $s2
  15. 150 REM =====================================================================
  16. 160 REM Display the menu of the programs available in IQ Builder.         ===
  17. 170 REM =====================================================================
  18. 180 REM $s2
  19. 190 LOCATE 1,34,0:COLOR 0,7:PRINT " IQ Builder ";
  20. 200 LOCATE 3,10:COLOR 7,0:PRINT "The following programs are available on this diskette:";
  21. 210 LOCATE 5,30:PRINT "Number Series"
  22. 220 LOCATE 6,30:PRINT "Analogies"
  23. 230 LOCATE 7,30:PRINT "Synonyms"
  24. 240 LOCATE 8,30:PRINT "Antonyms"
  25. 270 LOCATE 16,1:PRINT"Use the ";:COLOR 15:PRINT"UP ("CHR$(24)")";:COLOR 7:PRINT" and ";:COLOR 15:PRINT"DOWN ("CHR$(25)")";:COLOR 7:PRINT" arrows to position the cursor to the function"
  26. 280 LOCATE 17,1:PRINT"desired and then press the ";:COLOR 15:PRINT"ENTER ("CHR$(17)CHR$(196)CHR$(217)")";:COLOR 7:PRINT" key."
  27. 290 REM $s2
  28. 300 REM =====================================================================
  29. 310 REM Set up the initial coordinates for the selection arrow.           ===
  30. 320 REM =====================================================================
  31. 330 REM $s2
  32. 340 X=25:Y=5
  33. 350 REM $pa
  34. 360 REM =====================================================================
  35. 370 REM Set up UP and DOWN arrows for moving selection arrow.             ===
  36. 380 REM =====================================================================
  37. 390 REM $s2
  38. 400 KEY(11) ON:KEY(14) ON:ON KEY(11) GOSUB 730:ON KEY(14) GOSUB 800
  39. 410 REM $s2
  40. 420 REM =====================================================================
  41. 430 REM Set up KEY(10) to return to MENU program on A-disk.               ===
  42. 440 REM =====================================================================
  43. 450 REM $s2
  44. 460 KEY(10) ON:ON KEY(10) GOSUB 1000
  45. 470 REM $s2
  46. 480 REM =====================================================================
  47. 490 REM Display highlighted selection arrow at Y,X.                       ===
  48. 500 REM =====================================================================
  49. 510 REM $s2
  50. 520 COLOR 31:LOCATE Y,X:PRINT "==>";
  51. 530 REM $s2
  52. 540 POKE 106,0'clear kybd buffer
  53. 550 REM $s2
  54. 560 REM =====================================================================
  55. 570 REM If ENTER is pressed, go to program run routine.                   ===
  56. 580 REM =====================================================================
  57. 590 REM $s2
  58. 600 IF INKEY$ = CHR$(13) THEN BEEP:COLOR 7:CLS:GOTO 870
  59. 610 REM $s2
  60. 620 REM =====================================================================
  61. 630 REM Display the date and time at the bottom of the display.           ===
  62. 640 REM =====================================================================
  63. 650 REM $s2
  64. 660 COLOR 7:LOCATE 25,25:PRINT DATE$,TIME$;
  65. 670 GOTO 520
  66. 680 REM $pa
  67. 690 REM =====================================================================
  68. 700 REM Move the selection arrow up if it isn't at the top of the menu.   ===
  69. 710 REM =====================================================================
  70. 720 REM $s2
  71. 730 BEEP:Y1=CSRLIN:X1=POS(0):LOCATE Y,X:PRINT "   ";:LOCATE Y1,X1:IF Y>5 THEN Y=Y-1
  72. 740 RETURN 520
  73. 750 REM $s2
  74. 760 REM =====================================================================
  75. 770 REM Move the selection arrow down if it isn't at the top of the menu. ===
  76. 780 REM =====================================================================
  77. 790 REM $s2
  78. 800 BEEP:Y1=CSRLIN:X1=POS(0):LOCATE Y,X:PRINT "   ";:LOCATE Y1,X1:IF Y<8 THEN Y=Y+1
  79. 810 RETURN 520
  80. 820 REM $s2
  81. 830 REM =====================================================================
  82. 840 REM Run the selected program. If selection is invalid, return to menu.===
  83. 850 REM =====================================================================
  84. 860 REM $s2
  85. 870 IF Y=5 THEN RUN "numbers"
  86. 880 IF Y=6 THEN RUN "analog"
  87. 890 IF Y=7 THEN RUN "synonym"
  88. 900 IF Y=8 THEN RUN "antonym"
  89. 930 BEEP:LOCATE 2,1:PRINT "Please make another selection."
  90. 940 FOR I=1 TO 1000:NEXT I:RUN
  91. 950 REM $s2
  92. 960 REM =====================================================================
  93. 970 REM Return to MENU program on the A-disk.                             ===
  94. 980 REM =====================================================================
  95. 990 REM $s2
  96. 1000 COLOR 7,0:RUN "menu"
  97.    ===
  98. 980 REM =====================================================================
  99. 990 REM $s2
  100. 1000 C